home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / libguile / repl.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-06-16  |  6.3 KB  |  193 lines
  1. /* classes: h_files */
  2.  
  3. #ifndef REPLH
  4. #define REPLH
  5. /*    Copyright (C) 1995 Free Software Foundation, Inc.
  6.  * 
  7.  * This program is free software; you can redistribute it and/or modify
  8.  * it under the terms of the GNU General Public License as published by
  9.  * the Free Software Foundation; either version 2, or (at your option)
  10.  * any later version.
  11.  * 
  12.  * This program is distributed in the hope that it will be useful,
  13.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.  * GNU General Public License for more details.
  16.  * 
  17.  * You should have received a copy of the GNU General Public License
  18.  * along with this software; see the file COPYING.  If not, write to
  19.  * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  *
  21.  * As a special exception, the Free Software Foundation gives permission
  22.  * for additional uses of the text contained in its release of GUILE.
  23.  *
  24.  * The exception is that, if you link the GUILE library with other files
  25.  * to produce an executable, this does not by itself cause the
  26.  * resulting executable to be covered by the GNU General Public License.
  27.  * Your use of that executable is in no way restricted on account of
  28.  * linking the GUILE library code into it.
  29.  *
  30.  * This exception does not however invalidate any other reasons why
  31.  * the executable file might be covered by the GNU General Public License.
  32.  *
  33.  * This exception applies only to the code released by the
  34.  * Free Software Foundation under the name GUILE.  If you copy
  35.  * code from other Free Software Foundation releases into a copy of
  36.  * GUILE, as the General Public License permits, the exception does
  37.  * not apply to the code that you add in this way.  To avoid misleading
  38.  * anyone as to the status of such modified files, you must delete
  39.  * this exception notice from them.
  40.  *
  41.  * If you write modifications of your own for GUILE, it is your choice
  42.  * whether to permit this exception to apply to your modifications.
  43.  * If you do not wish that, delete this exception notice.  
  44.  */
  45.  
  46.  
  47. #include "__scm.h"
  48.  
  49.  
  50.  
  51. extern unsigned char scm_upcase[];
  52. extern unsigned char scm_downcase[];
  53.  
  54. extern SCM *scm_loc_loadpath;
  55. extern long scm_linum;
  56. SCM scm_exitval;
  57.  
  58.  
  59. #ifdef __STDC__
  60. extern void scm_tables_prehistory (void);
  61. extern void scm_intprint (long n, int radix, SCM port);
  62. extern void scm_ipruk (char *hdr, SCM ptr, SCM port);
  63. extern void scm_iprlist (char *hdr, SCM exp, char tlr, SCM port, int writing);
  64. extern void scm_iprin1 (SCM exp, SCM port, int writing);
  65. extern SCM scm_char_ready_p (SCM port);
  66. extern SCM scm_eof_objectp (SCM x);
  67. extern void scm_fflush (SCM port);
  68. extern SCM scm_force_output (SCM port);
  69. extern SCM scm_write (SCM obj, SCM port);
  70. extern SCM scm_display (SCM obj, SCM port);
  71. extern SCM scm_newline(SCM port);
  72. extern SCM scm_write_char (SCM chr, SCM port);
  73. extern SCM scm_trans_on (SCM fil);
  74. extern SCM scm_trans_off (void);
  75. extern void scm_putc (int c, SCM port);
  76. extern void scm_puts (char *s, SCM port);
  77. extern int scm_lfwrite (char *ptr, sizet size, sizet nitems, SCM port);
  78. extern int scm_lgetc (SCM port);
  79. extern void scm_lungetc (int c, SCM port);
  80. extern SCM scm_read_char (SCM port);
  81. extern SCM scm_peek_char (SCM port);
  82. extern char * scm_grow_tok_buf (SCM tok_buf);
  83. extern SCM scm_read (SCM port, SCM casep);
  84. extern SCM scm_try_load (SCM filename);
  85. extern SCM scm_quit (SCM n);
  86. extern SCM scm_abort (void);
  87. extern SCM scm_restart (void);
  88. extern SCM scm_with_dynamic_root (SCM thunk, SCM error_thunk);
  89. extern SCM scm_app_wdr (SCM proc, SCM a1, SCM args, SCM error);
  90. extern int scm_ldfile(char *path);
  91. extern int scm_ldprog(char *path);
  92. extern SCM scm_eval_string(SCM str);
  93. extern SCM scm_evstr(char *str);
  94. extern SCM scm_load_string(SCM str);
  95. extern void scm_ldstr(char *str);
  96. extern SCM scm_repl_driver (char *initpath);
  97. extern SCM scm_line_number (void);
  98. extern SCM scm_program_arguments (void);
  99. extern void scm_growth_mon (char *obj, long size, char *units);
  100. extern void scm_gc_start (char *what);
  101. extern void scm_gc_end (void);
  102. extern void scm_repl_report (void);
  103. extern SCM scm_room (SCM args);
  104. extern void scm_heap_report (void);
  105. extern void scm_exit_report (void);
  106. extern SCM scm_prolixity (SCM arg);
  107. extern SCM scm_repl (SCM prompt, SCM env);
  108. extern SCM scm_current_input_port (void);
  109. extern SCM scm_current_output_port (void);
  110. extern SCM scm_current_error_port (void);
  111. extern SCM scm_set_current_input_port (SCM port);
  112. extern SCM scm_set_current_output_port (SCM port);
  113. extern SCM scm_set_current_error_port (SCM port);
  114. extern SCM scm_compiled_library_path (void);
  115. extern void scm_final_repl (void);
  116. extern void scm_init_repl (int iverbose);
  117.  
  118. #else /* STDC */
  119. extern void scm_tables_prehistory ();
  120. extern void scm_intprint ();
  121. extern void scm_ipruk ();
  122. extern void scm_iprlist ();
  123. extern void scm_iprin1 ();
  124. extern SCM scm_char_ready_p ();
  125. extern SCM scm_eof_objectp ();
  126. extern void scm_fflush ();
  127. extern SCM scm_force_output ();
  128. extern SCM scm_write ();
  129. extern SCM scm_display ();
  130. extern SCM scm_newline();
  131. extern SCM scm_write_char ();
  132. extern SCM scm_trans_on ();
  133. extern SCM scm_trans_off ();
  134. extern void scm_putc ();
  135. extern void scm_puts ();
  136. extern int scm_lfwrite ();
  137. extern int scm_lgetc ();
  138. extern void scm_lungetc ();
  139. extern SCM scm_read_char ();
  140. extern SCM scm_peek_char ();
  141. extern char * scm_grow_tok_buf ();
  142. extern SCM scm_read ();
  143. extern SCM scm_try_load ();
  144. extern SCM scm_quit ();
  145. extern SCM scm_abort ();
  146. extern SCM scm_restart ();
  147. extern SCM scm_with_dynamic_root ();
  148. extern SCM scm_app_wdr ();
  149. extern int scm_ldfile();
  150. extern int scm_ldprog();
  151. extern SCM scm_eval_string();
  152. extern SCM scm_evstr();
  153. extern SCM scm_load_string();
  154. extern void scm_ldstr();
  155. extern SCM scm_repl_driver ();
  156. extern SCM scm_line_number ();
  157. extern SCM scm_program_arguments ();
  158. extern void scm_growth_mon ();
  159. extern void scm_gc_start ();
  160. extern void scm_gc_end ();
  161. extern void scm_repl_report ();
  162. extern SCM scm_room ();
  163. extern void scm_heap_report ();
  164. extern void scm_exit_report ();
  165. extern SCM scm_prolixity ();
  166. extern SCM scm_repl ();
  167. extern SCM scm_current_input_port ();
  168. extern SCM scm_current_output_port ();
  169. extern SCM scm_current_error_port ();
  170. extern SCM scm_set_current_input_port ();
  171. extern SCM scm_set_current_output_port ();
  172. extern SCM scm_set_current_error_port ();
  173. extern SCM scm_compiled_library_path ();
  174. extern void scm_final_repl ();
  175. extern void scm_init_repl ();
  176.  
  177. #endif /* STDC */
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192. #endif  /* REPLH */
  193.